home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / [DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip / VT100A.EMU < prev    next >
Text File  |  1990-06-01  |  7KB  |  246 lines
  1. INITIAL
  2. { LATEST VERSION MAR 15,1989 FOR 3.55 OR 4.0           }
  3. { VT100 emulation file.  Model=VT102, no VT52 support }
  4. z#origin(1)
  5. z#setbuf(1,0)
  6. z#setbuf(3,0)
  7. z#awrap(2)
  8. z#setatt(7)
  9. setcolor(7)
  10. clear
  11. z#setmar(1,@mrow)
  12. z#setins(0)
  13. @MAXROW=25
  14. @f1 = '"$1bOP"'      {PF1}
  15. @f2 = '"$1bOQ"'      {PF2}
  16. @f3 = '"$1bOR"'      {PF3}
  17. @f4 = '"$1bOS"'      {PF4}
  18. @f6 = '"$1b[17~"'    {PF6}    { VT200 ONLY, JOHN WANT }
  19. @f7 = '"$1b[18~"'    {PF7}    { VT200 ONLY, JOHN WANT }
  20. @f8 = '"$1b[19~"'    {PF8}    { VT200 ONLY, JOHN WANT }
  21. @f9 = '"$1b[20~"'    {PF9}    { VT200 ONLY, JOHN WANT }
  22. @f10 = '"$1b[21~"'   {PF10}   { VT200 ONLY, JOHN WANT }
  23. @NL-0 = 'z#doflg(" a=5 ", "$1bOp", "0")' {ANSI Alt Keypad 0}
  24. @NL-1 = 'z#doflg(" a=5 ", "$1bOq", "1")' {ANSI Alt Keypad 1}
  25. @NL-2 = 'z#doflg(" a=5 ", "$1bOr", "2")' {ANSI Alt Keypad 2}
  26. @NL-3 = 'z#doflg(" a=5 ", "$1bOs", "3")' {ANSI Alt Keypad 3}
  27. @NL-4 = 'z#doflg(" a=5 ", "$1bOt", "4")' {ANSI Alt Keypad 4}
  28. @NL-5 = 'z#doflg(" a=5 ", "$1bOu", "5")' {ANSI Alt Keypad 5}
  29. @NL-6 = 'z#doflg(" a=5 ", "$1bOv", "6")' {ANSI Alt Keypad 6}
  30. @NL-7 = 'z#doflg(" a=5 ", "$1bOw", "7")' {ANSI Alt Keypad 7}
  31. @NL-8 = 'z#doflg(" a=5 ", "$1bOx", "8")' {ANSI Alt Keypad 8}
  32. @NL-9 = 'z#doflg(" a=5 ", "$1bOy", "9")' {ANSI Alt Keypad 9}
  33. @NL-Dsh = 'z#doflg(" a=5 ", "$1bOm", "-")' {ANSI Alt Keypad -}
  34. @NL-Dot = 'z#doflg(" a=5 ", "$1bOn", ".")' {ANSI Alt Keypad .}
  35. @NL-Pls = 'z#doflg(" a=5 ", "$1bOM", "$0d0a")' {ANSI Alt Keypad ENTER}
  36. @home = '"$01"'     { Home Ctrl A }
  37. @uparr = 'z#doflg("a=5", "$1bOA", "$1b[A")'
  38. @dnarr = 'z#doflg("a=5", "$1bOB", "$1b[B")'
  39. @riarr = 'z#doflg("a=5", "$1bOC", "$1b[C")'
  40. @lfarr = 'z#doflg("a=5", "$1bOD", "$1b[D")'
  41. @del = '"$b1"'    { 7f}
  42. END
  43. INBUFFER
  44. 0x00 NUL
  45. 0x08 BS2
  46. 0x0a LF
  47. 0x0b LF
  48. 0x0c FF
  49. 0x1a CAN
  50. 0x7f NUL
  51. 0x0d CR
  52. END
  53. INBUFFER2
  54. 0x00 NUL
  55. 0x08 BS2
  56. 0x0b LF
  57. 0x0c FF
  58. 0x1a CAN
  59. 0x7f NUL
  60. 0x5f 0x20
  61. 0x60 0xfe
  62. 0x61 0x92
  63. 0x62 0x8b
  64. 0x63 0x9f
  65. 0x64 0x87
  66. 0x65 0x91
  67. 0x66 0xf8
  68. 0x67 0xf1
  69. 0x68 0xa5
  70. 0x69 0x9e
  71. 0x6a 0xd9
  72. 0x6b 0xbf
  73. 0x6c 0xda
  74. 0x6d 0xc0
  75. 0x6e 0xc5
  76. 0x6f 0xc4
  77. 0x70 0xc4
  78. 0x71 0xc4
  79. 0x72 0xc4
  80. 0x73 0xc4
  81. 0x74 0xc3
  82. 0x75 0xb4
  83. 0x76 0xc1
  84. 0x77 0xc2
  85. 0x78 0xb3
  86. 0x79 0xf3
  87. 0x7a 0xf2
  88. 0x7b 0xe3
  89. 0x7c 0xf7
  90. 0x7d 0x9c
  91. 0x7e 0xfa
  92. END
  93. OUTBUFFER
  94. 0x08 0x7f
  95. END
  96. HOSTCODE
  97. [?1h            z#setflg(a,5)        { 5-89 added }
  98. [?2l                                 { set terminal to VT52 mode, not support }
  99. [?3h            @maxrow=44;dos("setmax -ammon -c132  -r44  -mmono");
  100. [?4h                                 { select smooth scroll }
  101. [?5h            z#setatt(112)
  102. [?6h            z#origin(2);poscur(1,1)
  103. [?7h            z#awrap(0)
  104. [?8h                                 { auto repeat mode on }
  105. [?9h                                 { full scrn to print during pnt scrn }
  106. [?18h
  107. [?19h
  108. [?25h           cursize(7,8)         { 5-89 added }
  109. [1h
  110. [3h
  111. [4h             z#setins(1)
  112. [5h             z#setatt(112)
  113. [6h             z#origin(2);poscur(1,1)
  114. [7h             z#awrap(0)
  115. [8h
  116. [9h
  117. [12h            @echo(0)             { 5-89 added }
  118. [20h            z#lfnl(1)            { 5-89 added }
  119. [?1l            z#setflg(a,4)
  120. [?2l            message("Received set VT52 sequence. Use vt100b.emu");
  121. [?3l            dos("setmax -ammon -c80 -r25 -mmono");
  122. [?4l                                 { select jump scroll }
  123. [?5l            z#setatt(7)
  124. [?6l            z#origin(1);poscur(1,1)
  125. [?7l            z#awrap(1)
  126. [?8l                                 { auto repeat mode off }
  127. [?9l                                 { scrolling region to print in pnt scrn }
  128. [?18l
  129. [?19l
  130. [?25l           cursize(9,9)         { 5-89 added }
  131. [1l
  132. [2l             message("Received set VT52 sequence. Use vt100b.emu");
  133. [3l
  134. [4l             z#setins(0)
  135. [5l             z#setatt(7)
  136. [6l             z#origin(1);poscur(1,1)
  137. [7l             z#awrap(1)
  138. [8l
  139. [9l
  140. [12l            @echo(1)              { 5-89 added }
  141. [20l            z#lfnl(2)
  142. (A              z#setbuf(1,0)
  143. (B              z#setbuf(1,1)
  144. (0              z#setbuf(2,1)
  145. )A              z#setbuf(3,0)
  146. )B              z#setbuf(3,0)
  147. )0              z#setbuf(4,0)
  148. [m              z#setatt(7)
  149. [0m             z#setatt(7)
  150. [1m             z#setatt(14)
  151. [4m             z#setatt(1)
  152. [5m             z#setatt(128)
  153. [7m             z#setatt(112)
  154. [0;1m           z#setatt(14)
  155. [0;4m           z#setatt(1)
  156. [0;5m           z#setatt(128)
  157. [0;7m           z#setatt(112)
  158. [0;0r           z#setmar(1,24);poscur(1,1)
  159. [\t;\br         z#setmar(\\t,\\b);poscur(1,1)
  160. [;r             z#setmar(1,@mrow);poscur(1,1)
  161. [r              z#setmar(1,@mrow);poscur(1,1)
  162. [;\br           z#setmar(1,\\b);poscur(1,1)
  163. [\nA            z#curup(\\n,0)
  164. [A              z#curup(1,0)
  165. [\nB            z#curdn(\\n,0)
  166. [B              z#curdn(1,0)
  167. [\nC            z#curfwd(\\n)
  168. [C              z#curfwd(1)
  169. [\nD            z#curbak(\\n)
  170. [D              z#curbak(1)
  171. [;\nH           poscur(\\n,1)
  172. [\nH            poscur(1,\\n)
  173. [\n;H           poscur(1,\\n)
  174. [H              poscur(1,1)
  175. [;H             poscur(1,1)
  176. [\r;\cH         poscur(\\c,\\r)
  177. [;\nf           poscur(\\n,1)
  178. [\nf            poscur(1,\\n)
  179. [\n;f           poscur(1,\\n)
  180. [f              poscur(1,1)
  181. [;f             poscur(1,1)
  182. [\r;\cf         poscur(\\c,\\r)
  183. D               z#curdn(1,1);
  184. E               z#curdn(1,1);poscur(1,@row)
  185. M               z#curup(1,1);
  186. 7               z#savorg;z#savpos;z#savbuf
  187. 8               z#resorg;z#respos;z#resbuf
  188. H               z#tabset
  189. [g              z#tabclr
  190. [0g             z#tabclr
  191. [3g             z#tabcla
  192. #3
  193. #4
  194. #5
  195. #6
  196. [K              z#clreol
  197. [0K             z#clreol
  198. [1K             z#clrbol
  199. [2K             z#clrlin
  200. [J              z#clreos
  201. [0J             z#clreos
  202. [1J             z#clrbos
  203. [2J             clear
  204. [P              z#del(1)
  205. [0P             z#del(1)
  206. [\nP            z#del(\n)
  207. [L              z#inslin(1)
  208. [0L             z#inslin(1)
  209. [\nL            z#inslin(\n)
  210. [M              z#dellin(1)
  211. [0M             z#dellin(1)
  212. [\nM            z#dellin(\n)
  213. [5n             "$1b[0n"
  214. [6n             "$1b[@row;@colR"
  215. [c              "$1b[?1;0c"
  216. [0c             "$1b[?1;0c"
  217. Z               "$1b[?1;0c"
  218. c               z#origin(1);z#setbuf(1,0);z#setbuf(3,0);z#awrap(0);z#setmar(1,@mrow);
  219. #8
  220. [2;1y
  221. [2;2y
  222. [2;4y
  223. [2;9y
  224. [2;10y
  225. [2;12y
  226. [2;16y
  227. [2;24y
  228. [s              z#savpos
  229. [u              z#Resorg
  230. [y
  231. [0q
  232. [q
  233. [1q
  234. [2q
  235. [3q
  236. [4q
  237. =               z#setflg(a,5)      { application mode }
  238. >               z#setflg(a,4)      { numeric mode }
  239. <               z#setbuf(2,1)      { 3-89 added }
  240. $5C             z#setbuf(1,1)      { ESC \ }
  241. [5i             printer(1)         { 3-89 added }
  242. [?5i            printer(1)         { 3-89 added }
  243. [4i             printer(0)         { 3-89 added }
  244. [?4i            printer(0)         { 3-89 added }
  245. END
  246.